home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / MUTT2.ZIP / BS_UNTAB.MUT < prev    next >
Text File  |  1992-11-09  |  458b  |  20 lines
  1.   ;; bs_untab.mut : backup 1 character even if that char is a tab
  2.   ;; C Durland  Public Domain
  3.  
  4. (defun
  5.   BS-untabify
  6.   {
  7.     (int ts)
  8.  
  9.     (if (not (previous-character)) (done))    ; at beginning of buffer
  10.     (if (looking-at "^I")       ; change tab to blanks
  11.     {
  12.       (ts (tab-stops))(tab-stops 8)
  13.       (tab)        ;; tabs-worth-of-blanks blank dot
  14.       (delete-previous-character)
  15.       (tab-stops ts)
  16.     })
  17.     (delete-character)
  18.   }
  19. )
  20.